Imports System.Xml
Imports System.Data.SqlClient
Public Class dCliente
    'Public Function Existe(ByVal CodigoCliente As String, ByVal CodigoCategoria As String) As Boolean
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoCliente", CodigoCliente))
    '    Parametros.Add(New SqlParameter("@CodigoCategoria", CodigoCategoria))
    '    Return (dConexion.Consultar("STORE_TblClienteBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    'End Function
    Public Function Insertar(ByVal RazonSocial As String, _
                            ByVal Cuit As String, _
                            ByVal Direccion As String, _
                            ByVal TelCel As String, _
                            ByVal Mail As String, _
                            ByVal CondicionVenta As String, _
                            ByVal CodigoLocalidad As String, _
                            ByVal CodigoCategoria As String) As Boolean


        Dim Parametros As ArrayList = New ArrayList

        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If CondicionVenta <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionVenta", CondicionVenta))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If CodigoCategoria <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCategoria", CodigoCategoria))
        End If

        Return dConexion.ABM("STORE_TblClienteAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoCliente As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        Return dConexion.ABM("STORE_TblClienteEliminar", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoCliente As String, _
                                ByVal RazonSocial As String, _
                                ByVal Cuit As String, _
                                ByVal Direccion As String, _
                                ByVal TelCel As String, _
                                ByVal Mail As String, _
                                ByVal CondicionVenta As String, _
                                ByVal CodigoLocalidad As String, _
                                ByVal CodigoCategoria As String) As Boolean

        Dim Parametros As ArrayList = New ArrayList

        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If CondicionVenta <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionVenta", CondicionVenta))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If CodigoCategoria <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCategoria", CodigoCategoria))
        End If

        Return dConexion.ABM("STORE_TblClienteModificar", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoCliente As String, _
                                    ByVal RazonSocial As String, _
                                    ByVal Cuit As String, _
                                    ByVal Direccion As String, _
                                    ByVal TelCel As String, _
                                    ByVal Mail As String, _
                                    ByVal CondicionVenta As String, _
                                    ByVal CodigoLocalidad As String, _
                                    ByVal CodigoCategoria As String, _
                                    ByVal FechaAlta As String, _
                                    ByVal FechaAltaMax As String, _
                                    ByVal FechaAltaMin As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If CondicionVenta <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionVenta", CondicionVenta))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If CodigoCategoria <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCategoria", CodigoCategoria))
        End If
        If FechaAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta))
        End If
        If FechaAltaMax <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAltaMin", FechaAltaMax))
        End If
        If FechaAltaMin <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAltaMax", FechaAltaMin))
        End If
        Return dConexion.Consultar("STORE_TblClienteBuscarFiltrado", Parametros)
    End Function
    Public Function Existe(ByVal Cuit As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If

        Return dConexion.Consultar("STORE_TblClienteBuscarFiltrado", Parametros).Tables(0).Rows.count <> 0


    End Function

    Public Function BuscarNombreCliente(ByVal CodigoCliente As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If
        'If RazonSocial <> "" Then
        '    Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        'End If
        Return dConexion.Consultar("STORE_TblClienteBuscarFiltrado", Parametros)
    End Function
End Class
